* register.el (insert-register): Fix revno:114543.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5957359f7eb5c05b05d822c3bb8a82ba58fcaa94..44b224425f4b77007afd0d26bb10ef7d8a6802f7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-10-08  Bastien Guerry  <bzg@gnu.org>
+
+       * register.el (insert-register): Fix revno:114543.
+
 2013-10-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/perl-mode.el: Use lexical-binding.

diff --git a/lisp/register.el b/lisp/register.el
index 88b309b2d89e2d00302e92f2e08d7dbc82aa7f0e..2e22502cfeb5fe959217df51d9541dadd3fb7104 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -395,8 +395,8 @@ If optional second arg is non-nil, puts mark before and point after.
 Interactively, second arg is non-nil if prefix arg is supplied."
   (interactive (progn
                 (barf-if-buffer-read-only)
-                (register-read-with-preview "Insert register: ")
-                current-prefix-arg))
+                (list (register-read-with-preview "Insert register: ")
+                      current-prefix-arg)))
   (push-mark)
   (let ((val (get-register register)))
     (cond